home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1998-10-28 | 4.6 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 100%
| file
| Emacs/XEmacs v19 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6b 77 7a 68 40 6e 75 |piled by| kwzh@nu|
|00000020| 74 72 69 6d 61 74 2e 67 | 6e 75 2e 61 69 2e 6d 69 |trimat.g|nu.ai.mi|
|00000030| 74 2e 65 64 75 20 6f 6e | 20 57 65 64 20 4a 75 6c |t.edu on| Wed Jul|
|00000040| 20 31 37 20 31 36 3a 35 | 39 3a 33 34 20 31 39 39 | 17 16:5|9:34 199|
|00000050| 36 0a 3b 3b 3b 20 66 72 | 6f 6d 20 66 69 6c 65 20 |6.;;; fr|om file |
|00000060| 2f 67 64 2f 67 6e 75 2f | 65 6d 61 63 73 2f 31 39 |/gd/gnu/|emacs/19|
|00000070| 2e 30 2f 6c 69 73 70 2f | 67 6e 75 73 2d 64 65 6d |.0/lisp/|gnus-dem|
|00000080| 6f 6e 2e 65 6c 0a 3b 3b | 3b 20 65 6d 61 63 73 20 |on.el.;;|; emacs |
|00000090| 76 65 72 73 69 6f 6e 20 | 31 39 2e 33 31 2e 39 34 |version |19.31.94|
|000000a0| 2e 31 2e 0a 3b 3b 3b 20 | 62 79 74 65 63 6f 6d 70 |.1..;;; |bytecomp|
|000000b0| 20 76 65 72 73 69 6f 6e | 20 46 53 46 20 32 2e 31 | version| FSF 2.1|
|000000c0| 30 0a 3b 3b 3b 20 6f 70 | 74 69 6d 69 7a 61 74 69 |0.;;; op|timizati|
|000000d0| 6f 6e 20 69 73 20 6f 6e | 2e 0a 3b 3b 3b 20 74 68 |on is on|..;;; th|
|000000e0| 69 73 20 66 69 6c 65 20 | 75 73 65 73 20 6f 70 63 |is file |uses opc|
|000000f0| 6f 64 65 73 20 77 68 69 | 63 68 20 64 6f 20 6e 6f |odes whi|ch do no|
|00000100| 74 20 65 78 69 73 74 20 | 69 6e 20 45 6d 61 63 73 |t exist |in Emacs|
|00000110| 20 31 38 2e 0a 0a 28 69 | 66 20 28 61 6e 64 20 28 | 18...(i|f (and (|
|00000120| 62 6f 75 6e 64 70 20 27 | 65 6d 61 63 73 2d 76 65 |boundp '|emacs-ve|
|00000130| 72 73 69 6f 6e 29 0a 09 | 20 28 6f 72 20 28 61 6e |rsion)..| (or (an|
|00000140| 64 20 28 62 6f 75 6e 64 | 70 20 27 65 70 6f 63 68 |d (bound|p 'epoch|
|00000150| 3a 3a 76 65 72 73 69 6f | 6e 29 20 65 70 6f 63 68 |::versio|n) epoch|
|00000160| 3a 3a 76 65 72 73 69 6f | 6e 29 0a 09 20 20 20 20 |::versio|n).. |
|00000170| 20 28 73 74 72 69 6e 67 | 2d 6c 65 73 73 70 20 65 | (string|-lessp e|
|00000180| 6d 61 63 73 2d 76 65 72 | 73 69 6f 6e 20 22 31 39 |macs-ver|sion "19|
|00000190| 2e 32 39 22 29 29 29 0a | 20 20 20 20 28 65 72 72 |.29"))).| (err|
|000001a0| 6f 72 20 22 60 67 6e 75 | 73 2d 64 65 6d 6f 6e 2e |or "`gnu|s-demon.|
|000001b0| 65 6c 27 20 77 61 73 20 | 63 6f 6d 70 69 6c 65 64 |el' was |compiled|
|000001c0| 20 66 6f 72 20 45 6d 61 | 63 73 20 31 39 2e 32 39 | for Ema|cs 19.29|
|000001d0| 20 6f 72 20 6c 61 74 65 | 72 22 29 29 0a 0a 0a 28 | or late|r"))...(|
|000001e0| 72 65 71 75 69 72 65 20 | 28 71 75 6f 74 65 20 67 |require |(quote g|
|000001f0| 6e 75 73 29 29 0a 23 40 | 36 30 32 20 41 6c 69 73 |nus)).#@|602 Alis|
|00000200| 74 20 6f 66 20 64 61 65 | 6d 6f 6e 69 63 20 68 61 |t of dae|monic ha|
|00000210| 6e 64 6c 65 72 73 20 74 | 6f 20 62 65 20 72 75 6e |ndlers t|o be run|
|00000220| 20 61 74 20 69 6e 74 65 | 72 76 61 6c 73 2e 0a 45 | at inte|rvals..E|
|00000230| 61 63 68 20 68 61 6e 64 | 6c 65 72 20 69 73 20 61 |ach hand|ler is a|
|00000240| 20 6c 69 73 74 20 6f 6e | 20 74 68 65 20 66 6f 72 | list on| the for|
|00000250| 6d 0a 0a 28 46 55 4e 43 | 54 49 4f 4e 20 54 49 4d |m..(FUNC|TION TIM|
|00000260| 45 20 49 44 4c 45 29 0a | 0a 46 55 4e 43 54 49 4f |E IDLE).|.FUNCTIO|
|00000270| 4e 20 69 73 20 74 68 65 | 20 66 75 6e 63 74 69 6f |N is the| functio|
|00000280| 6e 20 74 6f 20 62 65 20 | 63 61 6c 6c 65 64 2e 20 |n to be |called. |
|00000290| 0a 54 49 4d 45 20 69 73 | 20 74 68 65 20 6e 75 6d |.TIME is| the num|
|000002a0| 62 65 72 20 6f 66 20 60 | 67 6e 75 73 2d 64 65 6d |ber of `|gnus-dem|
|000002b0| 6f 6e 2d 74 69 6d 65 73 | 74 65 70 27 73 20 62 65 |on-times|tep's be|
|000002c0| 74 77 65 65 6e 20 65 61 | 63 68 20 63 61 6c 6c 2e |tween ea|ch call.|
|000002d0| 20 20 0a 49 66 20 6e 69 | 6c 2c 20 6e 65 76 65 72 | .If ni|l, never|
|000002e0| 20 63 61 6c 6c 2e 20 20 | 49 66 20 74 2c 20 63 61 | call. |If t, ca|
|000002f0| 6c 6c 20 65 61 63 68 20 | 60 67 6e 75 73 2d 64 65 |ll each |`gnus-de|
|00000300| 6d 6f 6e 2d 74 69 6d 65 | 73 74 65 70 27 2e 0a 49 |mon-time|step'..I|
|00000310| 66 20 49 44 4c 45 20 69 | 73 20 74 2c 20 6f 6e 6c |f IDLE i|s t, onl|
|00000320| 79 20 63 61 6c 6c 20 69 | 66 20 45 6d 61 63 73 20 |y call i|f Emacs |
|00000330| 68 61 73 20 62 65 65 6e | 20 69 64 6c 65 20 66 6f |has been| idle fo|
|00000340| 72 20 61 20 77 68 69 6c | 65 2e 20 20 49 66 20 49 |r a whil|e. If I|
|00000350| 44 4c 45 0a 69 73 20 61 | 20 6e 75 6d 62 65 72 2c |DLE.is a| number,|
|00000360| 20 6f 6e 6c 79 20 63 61 | 6c 6c 20 77 68 65 6e 20 | only ca|ll when |
|00000370| 45 6d 61 63 73 20 68 61 | 73 20 62 65 65 6e 20 69 |Emacs ha|s been i|
|00000380| 64 6c 65 20 6d 6f 72 65 | 20 74 68 61 6e 20 74 68 |dle more| than th|
|00000390| 69 73 20 6e 75 6d 62 65 | 72 0a 6f 66 20 60 67 6e |is numbe|r.of `gn|
|000003a0| 75 73 2d 64 65 6d 6f 6e | 2d 74 69 6d 65 73 74 65 |us-demon|-timeste|
|000003b0| 70 27 73 2e 20 20 49 66 | 20 49 44 4c 45 20 69 73 |p's. If| IDLE is|
|000003c0| 20 6e 69 6c 2c 20 64 6f | 6e 27 74 20 63 61 72 65 | nil, do|n't care|
|000003d0| 20 61 62 6f 75 74 0a 69 | 64 6c 65 6e 65 73 73 2e | about.i|dleness.|
|000003e0| 20 20 49 66 20 49 44 4c | 45 20 69 73 20 61 20 6e | If IDL|E is a n|
|000003f0| 75 6d 62 65 72 20 61 6e | 64 20 54 49 4d 45 20 69 |umber an|d TIME i|
|00000400| 73 20 6e 69 6c 2c 20 74 | 68 65 6e 20 63 61 6c 6c |s nil, t|hen call|
|00000410| 20 6f 6e 63 65 20 65 61 | 63 68 0a 74 69 6d 65 20 | once ea|ch.time |
|00000420| 45 6d 61 63 73 20 68 61 | 73 20 62 65 65 6e 20 69 |Emacs ha|s been i|
|00000430| 64 6c 65 20 66 6f 72 20 | 49 44 4c 45 20 60 67 6e |dle for |IDLE `gn|
|00000440| 75 73 2d 64 65 6d 6f 6e | 2d 74 69 6d 65 73 74 65 |us-demon|-timeste|
|00000450| 70 27 73 2e 1f 0a 28 64 | 65 66 76 61 72 20 67 6e |p's...(d|efvar gn|
|00000460| 75 73 2d 64 65 6d 6f 6e | 2d 68 61 6e 64 6c 65 72 |us-demon|-handler|
|00000470| 73 20 6e 69 6c 20 28 23 | 24 20 2e 20 35 30 38 29 |s nil (#|$ . 508)|
|00000480| 29 0a 23 40 34 34 20 2a | 4e 75 6d 62 65 72 20 6f |).#@44 *|Number o|
|00000490| 66 20 73 65 63 6f 6e 64 | 73 20 69 6e 20 65 61 63 |f second|s in eac|
|000004a0| 68 20 64 65 6d 6f 6e 20 | 74 69 6d 65 73 74 65 70 |h demon |timestep|
|000004b0| 2e 1f 0a 28 64 65 66 76 | 61 72 20 67 6e 75 73 2d |...(defv|ar gnus-|
|000004c0| 64 65 6d 6f 6e 2d 74 69 | 6d 65 73 74 65 70 20 36 |demon-ti|mestep 6|
|000004d0| 30 20 28 23 24 20 2e 20 | 2d 31 31 35 39 29 29 0a |0 (#$ . |-1159)).|
|000004e0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 21 84 |(byte-co|de "..!.|
|000004f0| 08 00 c2 11 c1 0b 42 13 | c0 c4 21 84 14 00 c2 14 |......B.|..!.....|
|00000500| c4 0b 42 13 c0 c5 21 84 | 20 00 c6 15 c5 0b 42 13 |..B...!.| .....B.|
|00000510| c0 c7 21 84 2d 00 c2 16 | 07 c7 0b 42 13 c0 c8 21 |..!.-...|...B...!|
|00000520| 84 3a 00 c2 16 08 c8 0b | 42 13 c0 c9 21 84 47 00 |.:......|B...!.G.|
|00000530| c2 16 09 c9 0b 42 13 ca | cb cc 5c 22 88 ca cd cc |.....B..|..\"....|
|00000540| 5c 22 87 22 20 5b 62 6f | 75 6e 64 70 20 67 6e 75 |\"." [bo|undp gnu|
|00000550| 73 2d 64 65 6d 6f 6e 2d | 74 69 6d 65 72 20 6e 69 |s-demon-|timer ni|
|00000560| 6c 20 63 75 72 72 65 6e | 74 2d 6c 6f 61 64 2d 6c |l curren|t-load-l|
|00000570| 69 73 74 20 67 6e 75 73 | 2d 64 65 6d 6f 6e 2d 69 |ist gnus|-demon-i|
|00000580| 64 6c 65 2d 68 61 73 2d | 62 65 65 6e 2d 63 61 6c |dle-has-|been-cal|
|00000590| 6c 65 64 20 67 6e 75 73 | 2d 64 65 6d 6f 6e 2d 69 |led gnus|-demon-i|
|000005a0| 64 6c 65 2d 74 69 6d 65 | 20 30 20 67 6e 75 73 2d |dle-time| 0 gnus-|
|000005b0| 64 65 6d 6f 6e 2d 68 61 | 6e 64 6c 65 72 2d 73 74 |demon-ha|ndler-st|
|000005c0| 61 74 65 20 67 6e 75 73 | 2d 64 65 6d 6f 6e 2d 69 |ate gnus|-demon-i|
|000005d0| 73 2d 69 64 6c 65 20 67 | 6e 75 73 2d 64 65 6d 6f |s-idle g|nus-demo|
|000005e0| 6e 2d 6c 61 73 74 2d 6b | 65 79 73 20 61 75 74 6f |n-last-k|eys auto|
|000005f0| 6c 6f 61 64 20 74 69 6d | 65 7a 6f 6e 65 2d 70 61 |load tim|ezone-pa|
|00000600| 72 73 65 2d 64 61 74 65 | 20 22 74 69 6d 65 7a 6f |rse-date| "timezo|
|00000610| 6e 65 22 20 74 69 6d 65 | 7a 6f 6e 65 2d 6d 61 6b |ne" time|zone-mak|
|00000620| 65 2d 61 72 70 61 2d 64 | 61 74 65 5d 20 33 29 0a |e-arpa-d|ate] 3).|
|00000630| 23 40 35 34 20 41 64 64 | 20 74 68 65 20 68 61 6e |#@54 Add| the han|
|00000640| 64 6c 65 72 20 46 55 4e | 43 54 49 4f 4e 20 74 6f |dler FUN|CTION to|
|00000650| 20 62 65 20 72 75 6e 20 | 61 74 20 54 49 4d 45 20 | be run |at TIME |
|00000660| 61 6e 64 20 49 44 4c 45 | 2e 1f 0a 28 64 65 66 61 |and IDLE|...(defa|
|00000670| 6c 69 61 73 20 27 67 6e | 75 73 2d 64 65 6d 6f 6e |lias 'gn|us-demon|
|00000680| 2d 61 64 64 2d 68 61 6e | 64 6c 65 72 20 23 5b 28 |-add-han|dler #[(|
|00000690| 66 75 6e 63 74 69 6f 6e | 20 74 69 6d 65 20 69 64 |function| time id|
|000006a0| 6c 65 29 20 22 c0 09 21 | 88 09 5c 6e 0b 45 5c 66 |le) "..!|..\n.E\f|
|000006b0| 42 14 c5 20 87 22 20 5b | 67 6e 75 73 2d 64 65 6d |B.. ." [|gnus-dem|
|000006c0| 6f 6e 2d 72 65 6d 6f 76 | 65 2d 68 61 6e 64 6c 65 |on-remov|e-handle|
|000006d0| 72 20 66 75 6e 63 74 69 | 6f 6e 20 74 69 6d 65 20 |r functi|on time |
|000006e0| 69 64 6c 65 20 67 6e 75 | 73 2d 64 65 6d 6f 6e 2d |idle gnu|s-demon-|
|000006f0| 68 61 6e 64 6c 65 72 73 | 20 67 6e 75 73 2d 64 65 |handlers| gnus-de|
|00000700| 6d 6f 6e 2d 69 6e 69 74 | 5d 20 33 20 28 23 24 20 |mon-init|] 3 (#$ |
|00000710| 2e 20 31 35 38 39 29 5d | 29 0a 23 40 35 36 20 52 |. 1589)]|).#@56 R|
|00000720| 65 6d 6f 76 65 20 74 68 | 65 20 68 61 6e 64 6c 65 |emove th|e handle|
|00000730| 72 20 46 55 4e 43 54 49 | 4f 4e 20 66 72 6f 6d 20 |r FUNCTI|ON from |
|00000740| 74 68 65 20 6c 69 73 74 | 20 6f 66 20 68 61 6e 64 |the list| of hand|
|00000750| 6c 65 72 73 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |lers...(|defalias|
|00000760| 20 27 67 6e 75 73 2d 64 | 65 6d 6f 6e 2d 72 65 6d | 'gnus-d|emon-rem|
|00000770| 6f 76 65 2d 68 61 6e 64 | 6c 65 72 20 23 5b 28 66 |ove-hand|ler #[(f|
|00000780| 75 6e 63 74 69 6f 6e 20 | 26 6f 70 74 69 6f 6e 61 |unction |&optiona|
|00000790| 6c 20 6e 6f 2d 69 6e 69 | 74 29 20 22 c0 09 5c 6e |l no-ini|t) "..\n|
|000007a0| 9e 5c 6e 5c 22 12 0b 86 | 0d 00 c4 20 87 22 20 5b |.\n\"...|... ." [|
|000007b0| 64 65 6c 71 20 66 75 6e | 63 74 69 6f 6e 20 67 6e |delq fun|ction gn|
|000007c0| 75 73 2d 64 65 6d 6f 6e | 2d 68 61 6e 64 6c 65 72 |us-demon|-handler|
|000007d0| 73 20 6e 6f 2d 69 6e 69 | 74 20 67 6e 75 73 2d 64 |s no-ini|t gnus-d|
|000007e0| 65 6d 6f 6e 2d 69 6e 69 | 74 5d 20 33 20 28 23 24 |emon-ini|t] 3 (#$|
|000007f0| 20 2e 20 31 38 32 33 29 | 5d 29 0a 23 40 32 39 20 | . 1823)|]).#@29 |
|00000800| 49 6e 69 74 69 61 6c 69 | 7a 65 20 74 68 65 20 47 |Initiali|ze the G|
|00000810| 6e 75 73 20 64 61 65 6d | 6f 6e 2e 1f 0a 28 64 65 |nus daem|on...(de|
|00000820| 66 61 6c 69 61 73 20 27 | 67 6e 75 73 2d 64 65 6d |falias '|gnus-dem|
|00000830| 6f 6e 2d 69 6e 69 74 20 | 23 5b 6e 69 6c 20 22 c0 |on-init |#[nil ".|
|00000840| 20 88 09 85 1d 00 c2 0b | 89 c4 23 15 c6 c7 09 5c | .......|..#....\|
|00000850| 22 16 08 c9 16 5c 6e cb | 16 5c 66 cd 89 16 0e 87 |"....\n.|.\f.....|
|00000860| 22 20 5b 67 6e 75 73 2d | 64 65 6d 6f 6e 2d 63 61 |" [gnus-|demon-ca|
|00000870| 6e 63 65 6c 20 67 6e 75 | 73 2d 64 65 6d 6f 6e 2d |ncel gnu|s-demon-|
|00000880| 68 61 6e 64 6c 65 72 73 | 20 6e 6e 68 65 61 64 65 |handlers| nnheade|
|00000890| 72 2d 72 75 6e 2d 61 74 | 2d 74 69 6d 65 20 67 6e |r-run-at|-time gn|
|000008a0| 75 73 2d 64 65 6d 6f 6e | 2d 74 69 6d 65 73 74 65 |us-demon|-timeste|
|000008b0| 70 20 67 6e 75 73 2d 64 | 65 6d 6f 6e 20 67 6e 75 |p gnus-d|emon gnu|
|000008c0| 73 2d 64 65 6d 6f 6e 2d | 74 69 6d 65 72 20 6d 61 |s-demon-|timer ma|
|000008d0| 70 63 61 72 20 23 5b 28 | 68 61 6e 64 6c 65 72 29 |pcar #[(|handler)|
|000008e0| 20 22 08 40 c1 08 41 40 | 21 c2 08 38 45 87 22 20 | ".@..A@|!..8E." |
|000008f0| 5b 68 61 6e 64 6c 65 72 | 20 67 6e 75 73 2d 64 65 |[handler| gnus-de|
|00000900| 6d 6f 6e 2d 74 69 6d 65 | 2d 74 6f 2d 73 74 65 70 |mon-time|-to-step|
|00000910| 20 32 5d 20 34 5d 20 67 | 6e 75 73 2d 64 65 6d 6f | 2] 4] g|nus-demo|
|00000920| 6e 2d 68 61 6e 64 6c 65 | 72 2d 73 74 61 74 65 20 |n-handle|r-state |
|00000930| 30 20 67 6e 75 73 2d 64 | 65 6d 6f 6e 2d 69 64 6c |0 gnus-d|emon-idl|
|00000940| 65 2d 74 69 6d 65 20 6e | 69 6c 20 67 6e 75 73 2d |e-time n|il gnus-|
|00000950| 64 65 6d 6f 6e 2d 69 64 | 6c 65 2d 68 61 73 2d 62 |demon-id|le-has-b|
|00000960| 65 65 6e 2d 63 61 6c 6c | 65 64 20 74 20 67 6e 75 |een-call|ed t gnu|
|00000970| 73 2d 75 73 65 2d 64 65 | 6d 6f 6e 5d 20 34 20 28 |s-use-de|mon] 4 (|
|00000980| 23 24 20 2e 20 32 30 34 | 38 29 20 6e 69 6c 5d 29 |#$ . 204|8) nil])|
|00000990| 0a 28 67 6e 75 73 2d 61 | 64 64 2d 73 68 75 74 64 |.(gnus-a|dd-shutd|
|000009a0| 6f 77 6e 20 28 71 75 6f | 74 65 20 67 6e 75 73 2d |own (quo|te gnus-|
|000009b0| 64 65 6d 6f 6e 2d 63 61 | 6e 63 65 6c 29 20 28 71 |demon-ca|ncel) (q|
|000009c0| 75 6f 74 65 20 67 6e 75 | 73 29 29 0a 23 40 32 36 |uote gnu|s)).#@26|
|000009d0| 20 43 61 6e 63 65 6c 20 | 61 6e 79 20 47 6e 75 73 | Cancel |any Gnus|
|000009e0| 20 64 61 65 6d 6f 6e 73 | 2e 1f 0a 28 64 65 66 61 | daemons|...(defa|
|000009f0| 6c 69 61 73 20 27 67 6e | 75 73 2d 64 65 6d 6f 6e |lias 'gn|us-demon|
|00000a00| 2d 63 61 6e 63 65 6c 20 | 23 5b 6e 69 6c 20 22 08 |-cancel |#[nil ".|
|00000a10| 83 08 00 c1 08 21 88 c2 | 10 c2 89 13 87 22 20 5b |.....!..|....." [|
|00000a20| 67 6e 75 73 2d 64 65 6d | 6f 6e 2d 74 69 6d 65 72 |gnus-dem|on-timer|
|00000a30| 20 6e 6e 68 65 61 64 65 | 72 2d 63 61 6e 63 65 6c | nnheade|r-cancel|
|00000a40| 2d 74 69 6d 65 72 20 6e | 69 6c 20 67 6e 75 73 2d |-timer n|il gnus-|
|00000a50| 75 73 65 2d 64 65 6d 6f | 6e 5d 20 32 20 28 23 24 |use-demo|n] 2 (#$|
|00000a60| 20 2e 20 32 35 31 33 29 | 20 6e 69 6c 5d 29 0a 23 | . 2513)| nil]).#|
|00000a70| 40 33 31 20 57 68 65 74 | 68 65 72 20 45 6d 61 63 |@31 Whet|her Emac|
|00000a80| 73 20 69 73 20 69 64 6c | 65 20 6f 72 20 6e 6f 74 |s is idl|e or not|
|00000a90| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 67 6e |...(defa|lias 'gn|
|00000aa0| 75 73 2d 64 65 6d 6f 6e | 2d 69 73 2d 69 64 6c 65 |us-demon|-is-idle|
|00000ab0| 2d 70 20 23 5b 6e 69 6c | 20 22 c0 20 89 19 5c 6e |-p #[nil| ". ..\n|
|00000ac0| 9a 86 5c 66 00 09 12 c3 | 29 87 22 20 5b 72 65 63 |..\f....|)." [rec|
|00000ad0| 65 6e 74 2d 6b 65 79 73 | 20 6b 65 79 73 20 67 6e |ent-keys| keys gn|
|00000ae0| 75 73 2d 64 65 6d 6f 6e | 2d 6c 61 73 74 2d 6b 65 |us-demon|-last-ke|
|00000af0| 79 73 20 6e 69 6c 5d 20 | 33 20 28 23 24 20 2e 20 |ys nil] |3 (#$ . |
|00000b00| 32 36 37 36 29 5d 29 0a | 23 40 36 36 20 46 69 6e |2676)]).|#@66 Fin|
|00000b10| 64 20 6f 75 74 20 68 6f | 77 20 6d 61 6e 79 20 73 |d out ho|w many s|
|00000b20| 65 63 6f 6e 64 73 20 74 | 6f 20 54 49 4d 45 2c 20 |econds t|o TIME, |
|00000b30| 77 68 69 63 68 20 69 73 | 20 6f 6e 20 74 68 65 20 |which is| on the |
|00000b40| 66 6f 72 6d 20 22 31 37 | 3a 34 33 22 2e 1f 0a 28 |form "17|:43"...(|
|00000b50| 64 65 66 61 6c 69 61 73 | 20 27 67 6e 75 73 2d 64 |defalias| 'gnus-d|
|00000b60| 65 6d 6f 6e 2d 74 69 6d | 65 2d 74 6f 2d 73 74 65 |emon-tim|e-to-ste|
|00000b70| 70 20 23 5b 28 74 69 6d | 65 29 20 22 08 3b 84 07 |p #[(tim|e) ".;..|
|00000b80| 00 08 87 c1 20 1a c3 5c | 6e 21 1c c5 c6 5c 66 c7 |.... ..\|n!...\f.|
|00000b90| 48 21 c6 5c 66 c8 48 21 | c6 5c 66 c9 48 21 08 5c |H!.\f.H!|.\f.H!.\|
|00000ba0| 66 ca 48 86 26 00 cb 25 | 1e 5c 66 cd ce 0e 5c 66 |f.H.&..%|.\f...\f|
|00000bb0| 21 ce 5c 6e 21 5c 22 1e | 0f d0 0e 0f c7 57 83 43 |!.\n!\".|.....W.C|
|00000bc0| 00 0e 0f d1 5c 5c 82 45 | 00 0e 0f 0e 12 a5 21 2c |....\\.E|......!,|
|00000bd0| 87 22 20 5b 74 69 6d 65 | 20 63 75 72 72 65 6e 74 |." [time| current|
|00000be0| 2d 74 69 6d 65 2d 73 74 | 72 69 6e 67 20 64 61 74 |-time-st|ring dat|
|00000bf0| 65 20 74 69 6d 65 7a 6f | 6e 65 2d 70 61 72 73 65 |e timezo|ne-parse|
|00000c00| 2d 64 61 74 65 20 64 76 | 20 74 69 6d 65 7a 6f 6e |-date dv| timezon|
|00000c10| 65 2d 6d 61 6b 65 2d 61 | 72 70 61 2d 64 61 74 65 |e-make-a|rpa-date|
|00000c20| 20 73 74 72 69 6e 67 2d | 74 6f 2d 6e 75 6d 62 65 | string-|to-numbe|
|00000c30| 72 20 30 20 31 20 32 20 | 34 20 22 55 54 22 20 74 |r 0 1 2 |4 "UT" t|
|00000c40| 64 61 74 65 20 67 6e 75 | 73 2d 74 69 6d 65 2d 6d |date gnu|s-time-m|
|00000c50| 69 6e 75 73 20 67 6e 75 | 73 2d 65 6e 63 6f 64 65 |inus gnu|s-encode|
|00000c60| 2d 64 61 74 65 20 6e 73 | 65 63 6f 6e 64 73 20 72 |-date ns|econds r|
|00000c70| 6f 75 6e 64 20 38 36 34 | 30 30 20 67 6e 75 73 2d |ound 864|00 gnus-|
|00000c80| 64 65 6d 6f 6e 2d 74 69 | 6d 65 73 74 65 70 5d 20 |demon-ti|mestep] |
|00000c90| 37 20 28 23 24 20 2e 20 | 32 38 32 39 29 5d 29 0a |7 (#$ . |2829)]).|
|00000ca0| 23 40 36 33 20 54 68 65 | 20 47 6e 75 73 20 64 61 |#@63 The| Gnus da|
|00000cb0| 65 6d 6f 6e 20 74 68 61 | 74 20 74 61 6b 65 73 20 |emon tha|t takes |
|00000cc0| 63 61 72 65 20 6f 66 20 | 72 75 6e 6e 69 6e 67 20 |care of |running |
|00000cd0| 61 6c 6c 20 47 6e 75 73 | 20 68 61 6e 64 6c 65 72 |all Gnus| handler|
|00000ce0| 73 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 67 |s...(def|alias 'g|
|00000cf0| 6e 75 73 2d 64 65 6d 6f | 6e 20 23 5b 6e 69 6c 20 |nus-demo|n #[nil |
|00000d00| 22 c0 20 83 0b 00 09 54 | 11 82 0f 00 c2 11 c3 14 |". ....T|........|
|00000d10| 0d c3 89 89 1e 06 1e 07 | 1e 08 1e 09 0e 09 85 b4 |........|........|
|00000d20| 00 0e 09 89 41 16 09 40 | 89 16 08 41 40 89 16 07 |....A..@|...A@...|
|00000d30| a7 83 7f 00 ca 0e 07 21 | 84 45 00 0e 08 41 0e 07 |.......!|.E...A..|
|00000d40| 53 89 16 07 a0 88 0e 07 | c2 55 83 1b 00 cb 0e 08 |S.......|.U......|
|00000d50| 38 89 16 06 83 68 00 0e | 06 a7 83 63 00 0e 06 09 |8....h..|...c....|
|00000d60| 57 84 68 00 0e 5c 66 83 | 1b 00 0e 08 40 20 88 0e |W.h..\f.|....@ ..|
|00000d70| 08 41 cd 0e 08 40 0e 0e | 9e 41 40 21 a0 88 82 1b |.A...@..|.A@!....|
|00000d80| 00 cb 0e 08 38 89 16 06 | 83 1b 00 0e 06 a7 84 97 |....8...|........|
|00000d90| 00 0e 08 40 20 88 82 1b | 00 0e 08 40 5c 66 3e 84 |...@ ...|...@\f>.|
|00000da0| 1b 00 0e 06 09 57 83 1b | 00 0e 08 40 20 88 0e 08 |.....W..|...@ ...|
|00000db0| 40 5c 66 42 14 82 1b 00 | 2c 87 22 20 5b 67 6e 75 |@\fB....|,." [gnu|
|00000dc0| 73 2d 64 65 6d 6f 6e 2d | 69 73 2d 69 64 6c 65 2d |s-demon-|is-idle-|
|00000dd0| 70 20 67 6e 75 73 2d 64 | 65 6d 6f 6e 2d 69 64 6c |p gnus-d|emon-idl|
|00000de0| 65 2d 74 69 6d 65 20 30 | 20 6e 69 6c 20 67 6e 75 |e-time 0| nil gnu|
|00000df0| 73 2d 64 65 6d 6f 6e 2d | 69 64 6c 65 2d 68 61 73 |s-demon-|idle-has|
|00000e00| 2d 62 65 65 6e 2d 63 61 | 6c 6c 65 64 20 67 6e 75 |-been-ca|lled gnu|
|00000e10| 73 2d 64 65 6d 6f 6e 2d | 68 61 6e 64 6c 65 72 2d |s-demon-|handler-|
|00000e20| 73 74 61 74 65 20 69 64 | 6c 65 20 74 69 6d 65 20 |state id|le time |
|00000e30| 68 61 6e 64 6c 65 72 20 | 68 61 6e 64 6c 65 72 73 |handler |handlers|
|00000e40| 20 7a 65 72 6f 70 20 32 | 20 67 6e 75 73 2d 64 65 | zerop 2| gnus-de|
|00000e50| 6d 6f 6e 2d 69 73 2d 69 | 64 6c 65 20 67 6e 75 73 |mon-is-i|dle gnus|
|00000e60| 2d 64 65 6d 6f 6e 2d 74 | 69 6d 65 2d 74 6f 2d 73 |-demon-t|ime-to-s|
|00000e70| 74 65 70 20 67 6e 75 73 | 2d 64 65 6d 6f 6e 2d 68 |tep gnus|-demon-h|
|00000e80| 61 6e 64 6c 65 72 73 5d | 20 35 20 28 23 24 20 2e |andlers]| 5 (#$ .|
|00000e90| 20 33 32 33 37 29 5d 29 | 0a 23 40 33 38 20 41 64 | 3237)])|.#@38 Ad|
|00000ea0| 64 20 64 61 65 6d 6f 6e | 69 63 20 4e 6f 43 65 4d |d daemon|ic NoCeM|
|00000eb0| 20 68 61 6e 64 6c 69 6e | 67 20 74 6f 20 47 6e 75 | handlin|g to Gnu|
|00000ec0| 73 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 67 |s...(def|alias 'g|
|00000ed0| 6e 75 73 2d 64 65 6d 6f | 6e 2d 61 64 64 2d 6e 6f |nus-demo|n-add-no|
|00000ee0| 63 65 6d 20 23 5b 6e 69 | 6c 20 22 c0 c1 c2 c3 23 |cem #[ni|l "....#|
|00000ef0| 87 22 20 5b 67 6e 75 73 | 2d 64 65 6d 6f 6e 2d 61 |." [gnus|-demon-a|
|00000f00| 64 64 2d 68 61 6e 64 6c | 65 72 20 67 6e 75 73 2d |dd-handl|er gnus-|
|00000f10| 64 65 6d 6f 6e 2d 73 63 | 61 6e 2d 6e 6f 63 65 6d |demon-sc|an-nocem|
|00000f20| 20 36 30 20 74 5d 20 34 | 20 28 23 24 20 2e 20 33 | 60 t] 4| (#$ . 3|
|00000f30| 37 34 32 29 5d 29 0a 23 | 40 33 39 20 53 63 61 6e |742)]).#|@39 Scan|
|00000f40| 20 4e 6f 43 65 4d 20 67 | 72 6f 75 70 73 20 66 6f | NoCeM g|roups fo|
|00000f50| 72 20 4e 6f 43 65 4d 20 | 6d 65 73 73 61 67 65 73 |r NoCeM |messages|
|00000f60| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 67 6e |...(defa|lias 'gn|
|00000f70| 75 73 2d 64 65 6d 6f 6e | 2d 73 63 61 6e 2d 6e 6f |us-demon|-scan-no|
|00000f80| 63 65 6d 20 23 5b 6e 69 | 6c 20 22 c0 20 87 22 20 |cem #[ni|l ". ." |
|00000f90| 5b 67 6e 75 73 2d 6e 6f | 63 65 6d 2d 73 63 61 6e |[gnus-no|cem-scan|
|00000fa0| 2d 67 72 6f 75 70 73 5d | 20 31 20 28 23 24 20 2e |-groups]| 1 (#$ .|
|00000fb0| 20 33 39 30 30 29 5d 29 | 0a 23 40 34 34 20 41 64 | 3900)])|.#@44 Ad|
|00000fc0| 64 20 64 61 65 6d 6f 6e | 69 63 20 73 65 72 76 65 |d daemon|ic serve|
|00000fd0| 72 20 64 69 73 63 6f 6e | 6e 65 63 74 69 6f 6e 20 |r discon|nection |
|00000fe0| 74 6f 20 47 6e 75 73 2e | 1f 0a 28 64 65 66 61 6c |to Gnus.|..(defal|
|00000ff0| 69 61 73 20 27 67 6e 75 | 73 2d 64 65 6d 6f 6e 2d |ias 'gnu|s-demon-|
|00001000| 61 64 64 2d 64 69 73 63 | 6f 6e 6e 65 63 74 69 6f |add-disc|onnectio|
|00001010| 6e 20 23 5b 6e 69 6c 20 | 22 c0 c1 c2 c3 23 87 22 |n #[nil |"....#."|
|00001020| 20 5b 67 6e 75 73 2d 64 | 65 6d 6f 6e 2d 61 64 64 | [gnus-d|emon-add|
|00001030| 2d 68 61 6e 64 6c 65 72 | 20 67 6e 75 73 2d 64 65 |-handler| gnus-de|
|00001040| 6d 6f 6e 2d 63 6c 6f 73 | 65 2d 63 6f 6e 6e 65 63 |mon-clos|e-connec|
|00001050| 74 69 6f 6e 73 20 6e 69 | 6c 20 33 30 5d 20 34 20 |tions ni|l 30] 4 |
|00001060| 28 23 24 20 2e 20 34 30 | 33 30 29 5d 29 0a 28 64 |(#$ . 40|30)]).(d|
|00001070| 65 66 61 6c 69 61 73 20 | 27 67 6e 75 73 2d 64 65 |efalias |'gnus-de|
|00001080| 6d 6f 6e 2d 63 6c 6f 73 | 65 2d 63 6f 6e 6e 65 63 |mon-clos|e-connec|
|00001090| 74 69 6f 6e 73 20 23 5b | 6e 69 6c 20 22 c0 20 87 |tions #[|nil ". .|
|000010a0| 22 20 5b 67 6e 75 73 2d | 63 6c 6f 73 65 2d 62 61 |" [gnus-|close-ba|
|000010b0| 63 6b 65 6e 64 73 5d 20 | 31 5d 29 0a 23 40 35 35 |ckends] |1]).#@55|
|000010c0| 20 41 64 64 20 64 61 65 | 6d 6f 6e 69 63 20 73 63 | Add dae|monic sc|
|000010d0| 61 6e 6e 69 6e 67 20 6f | 66 20 6d 61 69 6c 20 66 |anning o|f mail f|
|000010e0| 72 6f 6d 20 74 68 65 20 | 6d 61 69 6c 20 62 61 63 |rom the |mail bac|
|000010f0| 6b 65 6e 64 73 2e 1f 0a | 28 64 65 66 61 6c 69 61 |kends...|(defalia|
|00001100| 73 20 27 67 6e 75 73 2d | 64 65 6d 6f 6e 2d 61 64 |s 'gnus-|demon-ad|
|00001110| 64 2d 73 63 61 6e 6d 61 | 69 6c 20 23 5b 6e 69 6c |d-scanma|il #[nil|
|00001120| 20 22 c0 c1 c2 c3 23 87 | 22 20 5b 67 6e 75 73 2d | "....#.|" [gnus-|
|00001130| 64 65 6d 6f 6e 2d 61 64 | 64 2d 68 61 6e 64 6c 65 |demon-ad|d-handle|
|00001140| 72 20 67 6e 75 73 2d 64 | 65 6d 6f 6e 2d 73 63 61 |r gnus-d|emon-sca|
|00001150| 6e 2d 6d 61 69 6c 20 31 | 32 30 20 36 30 5d 20 34 |n-mail 1|20 60] 4|
|00001160| 20 28 23 24 20 2e 20 34 | 32 38 39 29 5d 29 0a 28 | (#$ . 4|289)]).(|
|00001170| 64 65 66 61 6c 69 61 73 | 20 27 67 6e 75 73 2d 64 |defalias| 'gnus-d|
|00001180| 65 6d 6f 6e 2d 73 63 61 | 6e 2d 6d 61 69 6c 20 23 |emon-sca|n-mail #|
|00001190| 5b 6e 69 6c 20 22 08 c1 | 1a 1b 0b 89 41 13 40 40 |[nil "..|....A.@@|
|000011a0| 89 12 85 2b 00 c4 c5 5c | 6e 40 5c 22 83 04 00 c6 |...+...\|n@\"....|
|000011b0| 5c 6e 21 84 23 00 c7 5c | 6e 21 83 04 00 c8 c1 5c |\n!.#..\|n!.....\|
|000011c0| 6e 5c 22 88 82 04 00 2a | 87 22 20 5b 67 6e 75 73 |n\"....*|." [gnus|
|000011d0| 2d 6f 70 65 6e 65 64 2d | 73 65 72 76 65 72 73 20 |-opened-|servers |
|000011e0| 6e 69 6c 20 73 65 72 76 | 65 72 20 73 65 72 76 65 |nil serv|er serve|
|000011f0| 72 73 20 67 6e 75 73 2d | 63 68 65 63 6b 2d 62 61 |rs gnus-|check-ba|
|00001200| 63 6b 65 6e 64 2d 66 75 | 6e 63 74 69 6f 6e 20 72 |ckend-fu|nction r|
|00001210| 65 71 75 65 73 74 2d 73 | 63 61 6e 20 67 6e 75 73 |equest-s|can gnus|
|00001220| 2d 73 65 72 76 65 72 2d | 6f 70 65 6e 65 64 20 67 |-server-|opened g|
|00001230| 6e 75 73 2d 6f 70 65 6e | 2d 73 65 72 76 65 72 20 |nus-open|-server |
|00001240| 67 6e 75 73 2d 72 65 71 | 75 65 73 74 2d 73 63 61 |gnus-req|uest-sca|
|00001250| 6e 5d 20 33 5d 29 0a 28 | 70 72 6f 76 69 64 65 20 |n] 3]).(|provide |
|00001260| 28 71 75 6f 74 65 20 67 | 6e 75 73 2d 64 65 6d 6f |(quote g|nus-demo|
|00001270| 6e 29 29 0a | |n)). | |
+--------+-------------------------+-------------------------+--------+--------+
